home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / programm / ds0045 / spritsrc.exe / SPR_DEMO.BAK < prev    next >
Text File  |  1991-08-30  |  3KB  |  115 lines
  1. program sprite_test;
  2. uses drv_link,crt,graph,spritlib;
  3.  
  4. var nummer  : integer;
  5.     gd,gm   : integer;
  6.     t,u     : integer;
  7.     x,y     : integer;
  8.     dx,dy   : integer;
  9.     s1,s2   : string;
  10.     modestr : string;
  11.  
  12. begin
  13. gd:=0;
  14. initgraph (gd,gm,'');
  15. if (gd=1) or (gd=2) or (gd=7) then modestr:='.MON' else modestr:='.COL';
  16. load_sprite('S_E_U_K'+modestr,nummer);
  17. load_sprite('S_E_U_K'+modestr,nummer);
  18. load_sprite('S_E_U_K'+modestr,nummer);
  19. load_sprite('S_E_U_K'+modestr,nummer);
  20. load_sprite('S_E_U_K'+modestr,nummer);
  21. load_sprite('z'+modestr,nummer);
  22. load_sprite('e'+modestr,nummer);
  23. load_sprite('i'+modestr,nummer);
  24. load_sprite('g'+modestr,nummer);
  25. load_sprite('t'+modestr,nummer);
  26. show_sprite(0,getmaxx div 2,getmaxy div 2,0,0);
  27. show_sprite(1,getmaxx div 2 -1,getmaxy div 2,1,0);
  28. show_sprite(2,getmaxx div 2,getmaxy div 2 -1,3,0);
  29. show_sprite(3,getmaxx div 2 -1,getmaxy div 2 -1,2,0);
  30. dx:=(getmaxx div 2 -33) div 25;
  31. dy:=(getmaxy div 2 -33) div 25;
  32. for t:=1 to 25 do for u:=0 to 3 do begin
  33.     sound(75+t*10);
  34.     case u of
  35.        0 : begin
  36.               x:=getmaxx div 2 + t*dx;
  37.               y:=getmaxy div 2 + t*dy;
  38.               end;
  39.        1 : begin
  40.               x:=getmaxx div 2 - 1 - t*dx;
  41.               y:=getmaxy div 2 + t*dy;
  42.               end;
  43.        2 : begin
  44.               x:=getmaxx div 2 + t*dx;
  45.               y:=getmaxy div 2 - 1 - t*dy;
  46.               end;
  47.        3 : begin
  48.               x:=getmaxx div 2 - 1 - t*dx;
  49.               y:=getmaxy div 2 - 1 - t*dy;
  50.               end;
  51.        end;
  52.     move_sprite(u,x,y);
  53.     nosound;
  54.     end;
  55. show_sprite(4,getmaxx div 2-16,getmaxy div 2-16,0,0);
  56. line (60,16,getmaxx-60,16);
  57. line (60,getmaxy-16,getmaxx-60,getmaxy-16);
  58. line (16,60,16,getmaxy-60);
  59. line (getmaxx-16,60,getmaxx-16,getmaxy-60);
  60. for t:=325 downto 20 do begin
  61.     sound(t);
  62.     delay(3-t div 100);
  63.     end;
  64. nosound;
  65. delay(500);
  66. s1:='SOFTWARE-ENTWICKLUNG' ; s2:='UWE KUHRING' ;
  67. for t:=1 to 20 do begin
  68.     outtextxy(getmaxx div 2+(t*2-22)*textwidth('A'),getmaxy div 2 -60,copy(s1,t,1));
  69.     sound (20);
  70.     delay (60);
  71.     nosound;
  72.     delay(40);
  73.     end;
  74. for t:=1 to 11 do begin
  75.     outtextxy(getmaxx div 2+(t*2-12)*textwidth('A'),getmaxy div 2 -40,copy(s2,t,1));
  76.     sound (20);
  77.     delay (60);
  78.     nosound;
  79.     delay (40);
  80.     end;
  81. dx:=getmaxx div 20 ; dy:= getmaxy div 20;
  82. show_sprite(5,dx*8,dy*13,0,0);
  83. sound (60) ; delay(50) ; nosound ; delay(75);
  84. show_sprite(6,dx*9,dy*13,0,0);
  85. sound (60) ; delay(50) ; nosound ; delay(75);
  86. show_sprite(7,dx*10,dy*13,0,0);
  87. sound (60) ; delay(50) ; nosound ; delay(75);
  88. show_sprite(8,dx*11,dy*13,0,0);
  89. sound (60) ; delay(50) ; nosound ; delay(75);
  90. show_sprite(9,dx*12,dy*13,0,0);
  91. sound (60) ; delay(50) ; nosound ; delay(75);
  92. s1:='SPRITLIB V1.2 - Sprites für Turbo-Pascal';
  93. s2:='-Shareware-' ;
  94. for t:=1 to 40 do begin
  95.     outtextxy(getmaxx div 2+(t-21)*textwidth('A'),dy*17,copy(s1,t,1));
  96.     sound (75);
  97.     delay (5);
  98.     nosound;
  99.     delay(40);
  100.     end;
  101. for t:=1 to 11 do begin
  102.     outtextxy(getmaxx div 2+(t-7)*textwidth('A'),dy*18,copy(s2,t,1));
  103.     sound (50);
  104.     delay (5);
  105.     nosound;
  106.     delay (40);
  107.     end;
  108. repeat until keypressed;
  109. for t:=0 to 9 do begin
  110.     hide_sprite(t);
  111.     unload_sprite(t);
  112.     end;
  113. closegraph;
  114. end.
  115.